W poni┐szym przyk│adzie przyjΩto, ┐e w tabeli Pracownicy znajduj╣cej siΩ w bazie danych Northwind istnieje hipotetyczny indeks NowyIndeks.
W tym przyk│adzie indeks NowyIndeks jest usuwany z tabeli Pracownicy.
Sub DropX1()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Usu± indeks NowyIndeks z tabeli Pracownicy.
dbs.Execute "DROP INDEX NowyIndeks ON Pracownicy;"
dbs.Close
End Sub
W tym przyk│adzie tabela Pracownicy zostaje usuniΩta z bazy danych.
Sub DropX2()
Dim dbs As Database
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Usu± tabelΩ Pracownicy.
dbs.Execute "DROP TABLE Pracownicy;"
dbs.Close
End Sub